This function ornaments a symbol pattern by creating a downward moving appoggiatura from a higher symbol where two or more symbols repeat.Use it to smooth melodies with too many repeated symbols. Note that this works only with symbol patterns containing non-transpose symbols.
(ornament-higher 1 '(a a a a c c -l -l -l k l m m))
-->(b b b a d c -k -k -l k l n m)
(ornament-higher 2 '(a a a a c c -l -l -l k l m m))
-->(c c b a d c -j -k -l k l n m)
(ornament-higher 3 '(a a a a c c -l -l -l k l m m))
